package v8.Class_Activity_Control is
   type Activity_Control is limited interface;
   type Pointer is access all Activity_Control'Class;
   -- An interface for reporting progress and controlling long-running
   -- activities.

   procedure Destroy (this : in out Activity_Control) is null;
   -- virtual destructor

   procedure Free (this : access Activity_Control) is null;
   -- virtual operator deletee

   function Report_Progress_Value
     (this  : in out Activity_Control;
      done  : int;
      total : int) return Activity_Control_Option.Enum is abstract;
   -- Notify about current progress. The activity can be stopped by
   -- returning k_Abort as the callback result.

end v8.Class_Activity_Control;
